home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c10.d64 / term word v2.0 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  25KB  |  623 lines
  1. 1 GOTO9000
  2. 8 SYST3
  3. 9 GETA$:IFDANDA$=R$THEND$(K)=M1$+"":K=K+B
  4. 10 IFS<KTHENPRINT#F2,"";:N=N+B:IFY<NTHEN26
  5. 12 D=PEEK(DL):IFA$=""THEN8
  6. 17 POKEO,V:IFA$=""THENPRINT:GOTO854
  7. 18 IFA$=""THEN400
  8. 24 IFA$="[164]"THENGOSUB61:PRINT"[157][157][207][206][146]";:D=B:POKEDL,B:A$=""
  9. 25 GOTO8
  10. 26 IFT=CTHENGOSUB228:K=.:GOTO28
  11. 27 IFTTHENZ=Z+K:GOSUB229:IFTTHENK=.:IFFTTHENIFZ=>X1-F4THENGOSUB460:IFA$="$"THEN700
  12. 28 SYSCL:N=.:IFTTHENPRINT#F2,"";:GOTO8
  13. 29 IFK=>X1-BTHEND=.:PRINT"[196][195][211] [194]UFFER [198]ULL!   [207][198][198][146]":K=X1-B:POKEDL,.:PRINT#F2,"";
  14. 30 PRINT"[^[195]][146]";:GOTO8
  15. 33 PRINT"[212]O CONTINUE UPLOAD, HOLD DOWN SHIFT[146] AND DEPRESS SPACE BAR[146]":POKENC,.:GOTO850
  16. 34 PRINT#F2,"";:P=B:G=.:PRINT"UPLOADING![146]":PRINT"PRESS F1 TO QUIT![146]":GOTO36
  17. 35 G=G+B:IFG=>LTHEN212
  18. 36 M1$=W$(W%(G))+R$:SYSUL
  19. 37 IF(PEEK(L2)ANDB)THENSYSDE:GOTO37
  20. 38 SYSDE:GETA$,H$:IFA$="[133]"THENGOSUB1000:GOTO33
  21. 39 IFH$=""ORA$=""THENGOSUB142:GOTO38
  22. 40 GOTO35
  23. 41 GOSUB125:GOSUB913:M1$="":IFA$="$"THEN850
  24. 42 J=XX:GOSUB150:IFA$=""ANDW=.THEN42
  25. 43 ONJ1GOSUB571,571,196:IFA$<>"$"ANDW=.THEN42
  26. 44 IFA$<>"$"THENIFL1THENIFPEEK(843)THENJ=XX:GOSUB150:ONJ1GOSUB571,571,196:GOTO44
  27. 45 GOTO98
  28. 46 GOSUB930:GOSUB913:RETURN
  29. 47 GOSUB910:PRINT"[145] [201]NSERT [204]INE [193]BOVE"G"[146]":GOSUB660:GOSUB320
  30. 48 GOSUB530:IFA$="[166]"THEN314
  31. 49 J1=G:IFL=>XX-2THENGOSUB720:RETURN
  32. 50 PRINT"[147]  [201][206][211][197][210][212][201][206][199]!":J1=W%(L+B):FORJ=L+BTOG+BSTEP-B:W%(J)=W%(J-B):NEXT
  33. 52 W%(G)=J1:W$(W%(G))=A$:L=L+B:A$="":GOTO314
  34. 58 IFG=>LORL=>XXTHENGOSUB720:RETURN
  35. 59 PRINT"[147]  [196][197][204][197][212][201][206][199]!":H$=W$(W%(G)):J1=W%(G):FORJ=GTOL-B:W%(J)=W%(J+B):NEXT
  36. 60 W%(J)=J1:W$(W%(J))="":L=L-B:RETURN
  37. 61 IFK+24=>X1-BTHENGOSUB720:RETURN
  38. 62 OPEN3,3:PRINT"";:J=.:GOSUB149
  39. 63 IFSS<=JORST>.THENSYSCL:CLOSE3:N=.:F=.:RETURN
  40. 64 SYSML-9:GOSUB154:J=J+PEEK(M1):IFT=-BTHENPRINT#C,A$:GOTO63
  41. 65 K=K+B:SYSRS:D$(K)=M1$:GOTO63
  42. 66 A$="$":CLOSEB:OPENB,Y,F2,"0:"+N$+",S,W":GOTO68
  43. 67 OPEN5,8,15,"I0"
  44. 68 INPUT#5,W,A$,ET,ES:IFW<E1THENRETURN
  45. 69 PRINTW;A$:IFW=63THENINPUT"[211][195][210][193][212][195][200] & [211][193][214][197]  NES[157][157][157][157][157]";A$:IFA$="YES"THENPRINT#5,"S0:"+N$:GOTO66
  46. 70 PRINTW;A$,ET,ES:GOSUB914:GOSUB788:A$="$":RETURN
  47. 71 GOSUB600:IFA$="$"THEN234
  48. 72 H=.:SA=7:KK=.:GOSUB900:POKENC,.:IFA$<>"Y"THEN854
  49. 73 A$="N":INPUT"[208]RINT[207]UT  N[146][157][157][157]";A$:IFA$="Y"THENKK=C:LF=KK:DV=KK:GOSUB588:IFA$="$"THEN72
  50. 74 IFKK=.THENA$="N":INPUT"[213][208][204][207][193][196]  N[146][157][157][157]";A$:IFA$="Y"THENKK=2:LF=2:DV=2:GOSUB592:GOTO129
  51. 75 GOSUB974:IFA$="$"THEN854
  52. 76 GOSUB149:L1=.:J1=.:J2=.:U=.:J=.:IFKK=CTHENLF=C:O$=N$:GOSUB562:GOSUB592:J=XX:J3=52:GOTO41
  53. 78 GOSUB125:O$=N$:GOSUB46:IFL1THENPRINT" [198]ORMAT TO"ES:H$="":GOSUB993
  54. 80 IFJ=>XXTHEN98
  55. 83 X=L:FORJ=LTOXX:W$(W%(J))="":NEXT:A$="":PRINT"[204]OADING
  56. 84 A$[178]"":[141]150:[139]W[167]88
  57. 85 [139]X[177]XX[171]C[167][153]"ASCULL!":[137]90
  58. 86 [158]CL:[161]P5$:[139]P5$[178]"INPUT"[167]98
  59. 87 [139]A$[178]""[167]84
  60. 88 [139]W[177].[175]A$[178]""[167]90
  61. 89 W$(W%(X))[178]A$:A$[178]"":X[178]X[170]B:[139]W[178].[167]84
  62. 90 [139]L1[167][139][194](843)[167][141]150:[139]A$[179][177]""[167]W$(W%(X))[178]A$:X[178]X[170]B:[137]90
  63. 98 [139]KK[178]C[167][141]578:KK[178]C:[139]A$[178]"CF"[167]42
  64. 99 [139]KK[178]C[167]234
  65. 100 L[178]X:VI[178]B:[158]CL:[141]788:[141]914:[137]234
  66. 101 G[178]G[170]B:W$(W%(XX))[178]D$(G):X[178]XX:[141]214:[141]184:[139]A$[178]"INPUT"[176]A$[178]"GOTO"[167]G[178]K:P5$[178]A$
  67. 102 [139]G[179]K[167]101
  68. 103 A$[178]"":G[178].:[151]NC,.:[142]
  69. 104 A$[178]"Y":[153]"/COPY: (null)ORD/(null)RO (null)INES TO STR$LEN(null) ":[133]"       PEEKUFFER  YWAITCMDCMDCMD";A$
  70. 105 [139]A$[179][177]"Y"[167]A$[178]"":[142]
  71. 106 [133]" FROM#  0 CMDCMDCMDCMD";A$:J1[178][197](A$):A$[178]"":[133]"   TO#";A$:J2[178][197](A$):[139]J2[178].[167]J2[178]L[171]B
  72. 107 [139]J2[171]J1[178][177]X1[171]K[167][141]720:[142]
  73. 108 A$[178][196](J1)[170]"-"[170][196](J2):[141]740:[139]A$[179][177]"Y"[167][142]
  74. 109 K[178]K[170]B:[153]"LEN(null)(null)(null)RIGHT$(null)CHR$!":[129]J[178]J1[164]J2:D$(K)[178]W$(W%(J)):K[178]K[170]B:[130]:[142]
  75. 110 J3[178].:A$[178]"ATN(null)(null)VAL(null)STR$CLOSESTR$LEN(null)":[141]740:[139]A$[179][177]"Y"[167][142]
  76. 113 [129]J[178].[164]K:W$(W%(L[170]J))[178]D$(J):D$(J)[178]"":[130]
  77. 114 L[178]L[170]J[171]B:K[178].:VI[178]B:[142]
  78. 120 [139]L1[167][139][194](843)[167][141]150:[139]A$[179][177]""[167][153]M$A$:[139][194](843)[167]120
  79. 121 [139]A$[179][177]"LET"[167][142]
  80. 122 L1[178][171](L1[178].):L2[178]L1:[139]L1[178].[167]L2[178].:[153]"ASC(null)(null)(null)ATN(null)(null)RIGHT$(null)CHR$CLOSE(null)ASCASC.   (null)(null)(null)STR$ (null)(null)ATN(null) (null)(null)!":ES[178]80:[142]
  81. 123 L2[178]B:[141]125:[139]L1[167]127
  82. 124 [142]
  83. 125 [141]770:[139]A$[178]"Y"[167][153]"10-"LE;:A$[178]"80":[133]A$:ES[178][197](A$):[139]ES[179]LE[170]B[175]ES[177]9[167]L1[178]B
  84. 126 [153]" ASCORMAT AT"ES:[141]993:[142]
  85. 127 A$[178]"1":M$[178]"":[133]"<(null)ATN(null)CHR$RIGHT$(null)=00WAIT";A$:W[178][197](A$):[139]W[179]LE[175]W[177]B[167]M$[178][200](BB$,W)
  86. 128 [142]:[143] 127 USED BY 545
  87. 129 [141]974:[153]ST:[139]A$[178]"$"[167]140
  88. 130 [141]889:[141]895:[141]149:O$[178]N$:L2[178]673:[141]125:[141]127:[153]ST:W[178].
  89. 133 [141]150:[158]CL:[139]A$[178]""[175]W[178].[167]133
  90. 134 [139]A$[178]EO$[167][153]:[153]"  VAL(null)ASC RIGHT$NDICATOR!":M$[178]""
  91. 135 M1$[178]M$[170]A$[170]R$:[158]UL:[139]W[167]140
  92. 136 [139]([194](L2)[175]B)[167][158]DE:[137]136
  93. 137 [158]DE:[161]A$,H$:[139]A$[178]"INPUT"[167]145
  94. 138 [139]H$[178]""[176]A$[178]""[167][141]143:[137]137
  95. 139 [137]133
  96. 140 [139]L1[167][139][194](843)[177].[167][141]150:[139]A$[179][177]""[167]134
  97. 141 [158]CL:[139]CF[167]KK[178]2:[141]610:KK[178]2:[139]A$[178]"CF"[167][152]2,R$;:[137]133
  98. 142 [158]CL:[153]"(null)(null)="W:[141]788:[153]"":[137]880
  99. 143 [153]:[153]"[(null)-(null)ASCASC] (null)VALLENVALRIGHT$(null)VALSTR$! (null)ATN(null)(null)VAL!WAIT":[141]1000:[129]J[178]1[164]7500:[130]:[142]
  100. 145 [153]:A$[178]"ATNBORT (null)PLOAD":[141]740:[139]A$[178]"Y"[167][141]592:[137]141
  101. 146 [137]133
  102. 149 L1[178].:N[178]255:F[178]LB[170]256[172]HB:FF[178]DB[170]256[172]UB:[142]
  103. 150 [158]CL:[139]L1[167]156
  104. 151 [158]ML:W[178]64[175]ST:[139][194](BL)[178]N[167][151]BL,.:A$[178]"":[142]
  105. 152 [139][194](FF)[178]F4[167][151]M1,[194](BL):[151]M1[170]B,DB[170]B:[151]M1[170]F2,UB:[137]155
  106. 154 [151]M1,[194](BL)[170]B:[151]M1[170]B,DB:[151]M1[170]F2,UB
  107. 155 A$[178]M1$[170]"":[142]
  108. 156 [158]GH:W[178][194](889):[139][194](BL)[178]N[167][151]BL,.:A$[178]"":[142]
  109. 157 [139][194](F[170]F2)[178][198](EO$[170]CO$)[167]A$[178]EO$:[142]
  110. 158 [151]M1,[194](BL)[170]B:[151]M1[170]B,LB:[151]M1[170]F2,HB:[158]RS:A$[178]M1$[170]"":[142]
  111. 160 J2[178][195](W$(W%(J1))):[139]J2[179]LE[170]B[167][142]
  112. 161 [153]"(null)(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$ LN#"J1:[129]ET[178][181](J2[173]2)[164]B[169][171]B
  113. 162 [139][202](W$(W%(J1)),ET,B)[178]" "[167]164
  114. 163 [130]:[153]"VAL(null)(null)(null)(null), (null)INE"J1:A$[178]"$":[142]
  115. 164 A$[178][202](W$(W%(J1)),B,ET[171]B):W$(W%(J1))[178][202](W$(W%(J1)),ET[170]B,J2)
  116. 165 G[178]J1:[141]641:[142]
  117. 166 [158]CL:[141]590:[129]J[178].[164]K:[152]LF,[199](15);D$(J):[141]580
  118. 167 [130]:[152]LF:[160]LF:[158]CL:[142]
  119. 168 [133]"STR$VAL(null)VAL(null)VAL (DCS) PEEK(null)ASCASCVAL(null)!NWAITCMDCMDCMD";A$:[139][198](A$[170]CO$)[179][177]89[167][142]
  120. 170 [141]740:[139]A$[179][177]"Y"[167][142]
  121. 176 [153]" (DCS) PEEK(null)ASCASCVAL(null) LEN(null)VALATN(null)VALSTR$, (null)VAL(null)(null)CLOSESTR$VAL(null)VAL(null)VALSTR$ .WAIT":[129]J[178].[164]X1:D$(J)[178]"":[130]:K[178].:[142]
  122. 177 DV[178]255:[129]J1[178]SA[171]B[164].[169][171]B:[153]J1"ONCMD":[139]W$(W%(J1))[178]""[167]182
  123. 179 [151]PX,DV:X[178][195](M1$):ET[178][195](M$)[171]X:J2[178][195](W$(W%(J1)))
  124. 180 [158]52992:[139][194](FO)[167]J2[178][194](SM):[141]696:[141]160:[139]A$[178]"$"[176]A$[178]"*"[167]J1[178].:[137]182
  125. 181 [139][194](PX)[179][177]DV[167]180
  126. 182 [130]
  127. 183 [153]:[153]G" LENHANGES ":[153][163]Q)"(null)RESS A (null)EY":[141]184:A$[178]"":DV[178]8:[142]
  128. 184 [161]A$:[139]A$[178]""[167]184
  129. 185 [142]
  130. 187 [141]935:[139]T[167]854
  131. 188 A$[178]"Y":[153][163]Q);:[133]"(null)OAD A FILE  YWAITCMDCMDCMD";A$:[139]A$[179][177]"Y"[167]854
  132. 189 MO$[178]",S,R":[139]VI[167][141]440:[141]760
  133. 190 J[178]B:[137]71
  134. 194 [139]KK[178]C[167][142]
  135. 195 M1$[178]W$(W%(J))[170]CO$
  136. 196 [152]LF,M$"";:[158]CP:[152]LF,P5$M$;:[158]C2
  137. 198 [152]LF:[141]580:[139]KK[178]C[167][142]
  138. 199 J[178]J[170]B:[139]J[179]L[167]195
  139. 200 [137]578
  140. 212 G[178].:P[178].:[153]:[153]"VALND (null)F ASCILE. (null)PLOAD LENOMPLETE!WAIT":[141]760:[137]880
  141. 214 [139]W[167][153]W$(W%(X)):[142]
  142. 215 J1[178]B:J2[178][195](W$(W%(X)))
  143. 216 [139]J1[170]LL[171]B[178][177]J2[167][153][202](W$(W%(X)),J1,(J2[170]B[171]J1));:[141]220:[142]
  144. 217 [129]J[178]J1[170]LL[164]J1[169][171]B
  145. 218 [139][202](W$(W%(X)),J,B)[178]" "[167][153][202](W$(W%(X)),J1,(J[171]J1));:[141]222:[137]216
  146. 219 [130]:[153][202](W$(W%(X)),J1,LL);:J1[178]J1[170]LL:[137]216
  147. 220 [139]J2[171]J1[170]B[179]LL[167][153]
  148. 221 [142]
  149. 222 [139]J[171]J1[179]LL[167][153]
  150. 223 J1[178]J[170]B:[142]
  151. 226 [141]453:T[178].:[139]A$[178]"$"[167]946
  152. 228 [143]
  153. 229 [139]T[178]C[167][129]J[178].[164]K[171]B:[152]B,D$(J):D$(J)[178]"":[130]:K[178].:[142]
  154. 230 [129]J[178].[164]K[171]B:[152]B,D$(J)
  155. 231 [141]68:[139]A$[178]"$"[167][142]
  156. 232 [139]T[167]D$(J)[178]"":[130]:Z[178]Z[170]B:[142]
  157. 233 [153]D$(J):[130]:[142]
  158. 234 [153][199](14):D[178].:[151]DL,D:[158]CL:[141]788:[141]1000:[139]P[178].[167]G[178].:P[178].:L2[178].:CF[178].
  159. 235 SA[178]7:J[178].:J1[178].:J2[178].:L1[178].:X[178].:W[178].:H$[178]"":M$[178]"":A$[178]"":O[178]NC:V[178][194](CO)
  160. 236 CT[178]6:J3[178]2:DV[178]8:LF[178]B:N[178].:Z[178].:U[178].:PG[178].:[137]254
  161. 242 [153]"ONTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTO"R$BB$;
  162. 243 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(^ONONON";:[141]320
  163. 245 [153]:[139][195](A$)[178]F2[167][158]CL:[137]257
  164. 250 [139]L[177]XX[171]F2[167][141]720:[137]242
  165. 251 [139]A$[178]""[167]A$[178][199](32)
  166. 252 W$(W%(L))[178]A$:L[178]L[170]B
  167. 254 J[178].:[139]L[178][177]CT[167]J[178]L[171]CT
  168. 255 [151]NC,.:[153]"LOADVALNTER (null)INE"L"/E=EDITWAIT /H=HELPWAIT /@=MENU
  169. 256 FORX=JTOL:PRINTW$(W%(X)):POKEF3,.:NEXT:GOTO242
  170. 257 IFA$="/E"THENA$="":IFL>.THENG=.:A$="0":W=.:CT=10:PRINT"[147]";:GOSUB287:A$=""
  171. 258 IFA$="/D"THENPRINT:GOSUB760:A$=""
  172. 259 IFA$="/B"THENGOSUB930:GOSUB436:A$=""
  173. 260 IFA$="/S"THENA$="":GOSUB935:IFT=.THENGOSUB322:GOTO234
  174. 261 IFA$="/\"THENGOSUB987:A$=""
  175. 262 IFA$="/P"THENA$="":GOSUB935:IFT=.THENGOSUB560:GOTO234
  176. 263 IFA$="/@"ANDLTHENVI=B:GOTO344
  177. 264 IFA$="/@"ANDL=.THENG=.:VI=.:P=.:GOTO344
  178. 265 IFA$="/_"THENA$="":GOSUB935:IFT=.THENA$="[196][195][211] [198][213][204][204][146]":IFK+24<X1-BTHENGOSUB2000:GOTO234
  179. 266 IFA$="/R"THENG=-B:GOSUB912:GOSUB916:PRINT"[196][195][211] [212][197][216][212][146]";:GOSUB101:IFP5$="[137]"THENGOSUB2006:GOTO234
  180. 267 IFA$="/F"THENA$="":IFL>BTHENSA=L:GOSUB976:SA=7:IFM$="[146]"ORA$="$"THENGOSUB286:A$="":GOTO235
  181. 268 IFA$="/C"THENPRINT:PRINT:GOSUB440:GOSUB104:A$=""
  182. 269 IFA$="/H"THENGOSUB619:H$=A$:A$="":IFH$="H"THENH$="HELPW/PRO":GOSUB780:A$="/H":GOTO269
  183. 270 IFA$="/A"THENPRINT:PRINT:GOSUB440:GOSUB110:A$=""
  184. 271 IFA$="/L"THENA$="":IFL>BTHENGOSUB620:IFA$="Y"THENGOSUB287:A$=""
  185. 273 PRINT:IFA$<>""THENPRINT"[147]";:GOTO250
  186. 274 CT=6:POKENC,.:GOTO254
  187. 276 IFL=.THENRETURN
  188. 280 PRINT"[147]@ LINE #"G" OF"L" LINES":PRINT"   [197][196][201][212]  [195][207][206][212][210][207][204][211]:
  189. 281 [153]"ASC3WAIT- (null)LEN(null)(null)(null)(null) (null)(null)":[153]"ASC5WAIT-(null)LEN(null)(null)(null)(null) STR$(null)(null)(null)":[153]"ASC1WAIT-RIGHT$(null)(null)VAL(null)(null) ASC2WAIT-STR$VAL(null)VAL(null)VAL
  190. 282 PRINT"[211][200][201][198][212]/[201][146]  [201][206][211][197][210][212][211] (DCS)[194][213][198][198][197][210] @ [204]N#":PRINT"[198]4[146]-[195][207][208][217] [204][201][206][197]  [198]7[146]-[197][196][201][212] [204][201][206][197]
  191. 283 [153]"ASC7WAIT TO RECOVER STR$ELETE & VALNTER (^)":[153]"ASC7 TO RECOVER LENOPY & VALNTER (_)
  192. 284 PRINT"[211][200][201][198][212][146]&[210][197][212][213][210][206][146] TO [208][193][199][197]":PRINT"(C)=[195][197][206][212][197][210][160][204][201][206][197]":PRINT"(I)=[194][193][211][201][195][160][201][206][208][213][212]":PRINT"(F)=[198]IND&[210]EPLACE
  193. 285 A$[178][196](G):[153]"_=WORDWRAP"R$"@LINE"G;:[133]A$:L1[178][197](A$):[139]A$[178]"_"[167]W[178][168]W[175]B:L1[178]G
  194. 286 [141]778:G[178]L1:[139]L[178].[167][142]
  195. 287 [151]NC,.:[151]CO,V:[139]G[177]L[167]G[178].:X[178]G:[142]
  196. 288 [153]"LOADSYS"BB$"(null)IEW TEXT> ASC6-LEFT$ELP ASC8-VALXIT ASC7-VALDIT (null)INE";
  197. 289 [153]R$"ON(null)INE"G"  ASC3-(null)CROLL (null)P  ASC5-(null)CROLL STR$OWN
  198. 290 GOSUB657:POKECO,V:IFW<BTHENX=G:GOSUB214:POKEF3,.:PRINT"";:GOTO292
  199. 291 PRINTW$(W%(G))R$:POKEF3,.:PRINT"";
  200. 292 GETA$:GOSUB980:IFASC(A$+CO$)<133ORASC(A$+CO$)>141THENIFA$<>"I"ANDA$<>"C"THEN292
  201. 293 IFA$="I"ANDG<XXTHEN316
  202. 294 IFA$="C"ANDG<XXTHENGOSUB318:GOTO287
  203. 295 POKENC,.:ONASC(A$+CO$)-132GOTO47,296,313,310,304,302,280,308,539
  204. 296 IFG=.THENG=L-B:GOTO287
  205. 298 IFGTHENG=G-B:GOTO287
  206. 300 GOTO314
  207. 302 M$=W$(W%(G)):GOTO314
  208. 304 GOSUB58:GOTO287
  209. 308 RETURN
  210. 310 GOSUB910:PRINT"[195]HANGE [204]INE "G"":GOSUB658
  211. 311 PRINTW$(W%(G))"";:POKEF3,.:GOSUB320:GOSUB530:IFA$="[166]"THEN287
  212. 312 W$(W%(G))=A$:PRINT"[147]
  213. 313 [143] 6/1/86
  214. 314 G[178]G[170]B:[139]G[179]L[167]287
  215. 315 G[178].:[137]287
  216. 316 [153]"LOAD"BB$"ON"NL$:[159]6,0:[153]"";[199](34);:[151]F3,.:[153]W$(W%(G));"";
  217. 317 [132]6,W$(W%(G)):[160]6:[151]F3,.:[153]"LOAD";:[137]287
  218. 318 [153]:[133]"LENENTER (null)N 80CMDCMDCMDCMD";A$:J2[178][197](A$):[139]J2[179][178]([195](W$(W%(G)))[170]B)[167][142]
  219. 319 J1[178]J2[171][195](W$(W%(G))):J1[178][181](J1[173]F2):W$(W%(G))[178][200](BB$,J1)[170]W$(W%(G)):[142]
  220. 320 [158]CL:A$[178]"":[151]A,.:[158]E:[139]LE[179][194](A)[167][142]
  221. 321 [151]M1,[194](A)[170]B:[151]M1[170]B,LB:[151]M1[170]F2,HB:A$[178]M1$[170]"":J2[178].:[142]
  222. 322 [141]930:[153][163]C)"SAVE (WWAIT)ORD/PRO. OR (DWAIT)CS TEXT?":[141]184:[153]"    ("A$")
  223. 326 MO$=",S,W":IFA$="D"THENK=K+B:GOSUB226:K=K-B:RETURN
  224. 330 IFA$<>"W"THENRETURN
  225. 332 GOSUB453:T=.:IFA$="$"THEN946
  226. 333 FORG=.TOL-B
  227. 334 PRINT#B,W$(W%(G)):GOSUB68:IFA$="$"THENRETURN
  228. 335 PRINTG"[145]":NEXT:RETURN
  229. 344 Q=14:PRINT"[147]"BB$RIGHT$(BB$,LL)""TAB(Q-B)"[212]ERM [215]ORD V.20":PRINTTAB(Q-B)"[145][195]OPYRIGHT 1984
  230. 345 [153][163]Q[171]B)"(null)ICHAEL ATNNGELO";:M1$[178]"":[137]850
  231. 400 [153]:[153]"(null)RESS (null)O# (0-8) TO A SEND USER CODE":[153]"EWAIT=EDIT CODES  \WAIT=LENPEEK  HWAIT=HELP";
  232. 401 [153]"  BWAIT=COLORS":[141]184:[139]A$[178]"\"[167][141]320:[139]A$[179][177]" "[167]ID$(0)[178]A$:A$[178]"0"
  233. 402 V[178][194](646):[139]A$[178]"B"[167][141]1000:[141]436:[153]:[137]854
  234. 403 [139][198](A$[170]CO$)[178]13[167][153]:[153]:[153]:[137]880
  235. 404 [139]A$[178]"H"[167][141]628:[137]854
  236. 405 [139]A$[178]"E"[167]408
  237. 406 X[178][198](A$):X[178]X[171]48:[139]X[179].[176]X[177]Y[167]400
  238. 407 M1$[178]ID$(X)[170]R$:[153]"#"X:[158]UL:X[178].:[137]8
  239. 408 [153]"LOAD"BB$"WAITONON           (null)SER STR$EFINED LENODES           ":[137]415
  240. 409 [153]"  EWAITDIT VWAITIEW SWAITEND MWAITOVE CWAITLEAR <RT>WAITEXIT":A$[178]R$:[141]184:X[178][198](A$[170]CO$)
  241. 410 [145][171](X[178]69)[171]2[172](X[178]86)[171]3[172](X[178]83)[171]4[172](X[178]77)[171]5[172](X[178]67)[137]412,415,400,428,433
  242. 411 [153]"":[137]880
  243. 412 [153]"ON  VALDIT WHICH NUMBER ?    0-"Y"CMD#      ":[141]320:X[178][197](A$):[139]X[177]Y[167]408
  244. 413 [153]""BB$"ONONVALNTER ID/PW"X:[153]""BB$NL$ID$(X)"";:[151]F3,.:[141]320:ID$(X)[178]A$:[137]408
  245. 414 ID$(X)[178]A$:[137]408
  246. 415 [153]:[129]J3[178].[164]Y:W$(W%(XX))[178]""[170][196](J3)[170]"WAIT"[170]R$[170]ID$(J3):X[178]XX:[141]214:[130]:[137]409
  247. 428 [141]440:[153]"(null)OVE CODES 0-"Y" TO WORD PRO. ?   Y/NWAIT":[141]184:[139]A$[179][177]"Y"[167]408
  248. 430 J[178]L[170]Y:[139]J[178][177]XX[171]C[167][153]"(null)(null)VAL(null)ASC(null)(null)(null)WAIT":[137]408
  249. 432 J1[178].:[129]J[178]L[164](L[170]Y):W$(W%(J))[178]ID$(J1):J1[178]J1[170]B:[130]:L[178]L[170]Y:VI[178]B:[137]408
  250. 433 [153]" STR$ELETE CODES 0-"Y" Y/NWAIT":[141]184:[139]A$[179][177]"Y"[167]408
  251. 434 [129]J[178].[164]Y:ID$(J)[178]" ":[130]:[137]408
  252. 436 [139]SC[178]36879[167][133]"24-31";A$:J[178][197](A$):[139]J[177]23[175]J[179]32[167][151]SC,J
  253. 437 [139]SC[178]53280[167][141]2300
  254. 438 V[178][194](646):[142]
  255. 439 [153]"ASC(null)VAL(0) = "[184](0)
  256. 440 J1[178].:[129]J[178].[164]L:J1[178]J1[170][195](W$(W%(J))):[130]:[153]"(null)/(null)RO=  "J1" CHARS'  ON "L" LINES.
  257. 441 J1=.:FORJ=.TOK:J1=J1+LEN(D$(J)):NEXT:PRINT"[194][213][198][198][197][210]= "J1" CHARS'  ON "K" LINES.
  258. 442 [151]NC,.:[153][163]Q)"(null)PEN ASCILES  WAIT#"T:[153][163]Q)"PEEKUFFER ";:[139][194](DL)[167][153]"IS (null)(null)VAL(null)VALSTR$!":[142]
  259. 443 [153]" LEN(null)(null)(null)VALSTR$!":[142]
  260. 449 [141]920:[133]"   NCMDCMDCMD";A$:[139]A$[179][177]"Y"[167]N$[178]"":A$[178]"$":[153]:[153]:T[178].:[142]
  261. 450 [139]VI[167]W[178]T:T[178].:[141]440:T[178]W:[141]760
  262. 451 [139]K[167][141]168
  263. 453 MO$[178]",S,W":[141]600:N$[178]""
  264. 454 [141]900:[139]A$[178]"$"[176]N$[178]""[167]A$[178]"$":N$[178]"":T[178].:[142]
  265. 457 [139]N$[179][177]""[167][141]67:[139]A$[179][177]"$"[167][141]459:[141]68:[139]A$[179][177]"$"[167]T[178]3:O$[178]N$:[142]
  266. 458 A$[178]"$":T[178].:N$[178]"":[142]
  267. 459 [159]B,Y,F2,"0:"[170]N$[170]MO$:[142]
  268. 460 [152]1:[160]1:[160]5:[153]:[153]""N$" LEN(null)(null)(null)VALSTR$WAIT
  269. 461 IFKK>9THENN$=MID$(N$,B,LEN(N$)-B)
  270. 462 Z=.:KK=KK+B:N$=MID$(N$,B,LEN(N$)-2)+STR$(KK):PRINT"OPENING "N$
  271. 463 IFT=3THENGOSUB457:IFA$="$"THEND=.:T=.:POKEDL,.:Z=.:RETURN
  272. 464 D=B:A$="[135]":RETURN
  273. 470 IFT=3THENP5$="T":GOSUB922:PRINT:INPUT"   T[157][157][157]";P5$
  274. 472 IFT=3THENFT=B:IFP5$="P"ORP5$="[208]"THENFT=.
  275. 473 IFFTTHENRETURN
  276. 474 PRINT"[193]LL DATA WILL BE SAVED IN ONE FILE":PRINT"[206][207][212][197][146] ";
  277. 476 PRINT"PROGRAM FILES MAY BECOME TO LARGE":PRINT"     TO LOAD BACK INTO MEMORY!":RETURN
  278. 530 IFLEFT$(A$,B)="[166]"THENGOSUB930:PRINT"<->ESCAPE<->":A$="[166]":FORET=1TOX1:NEXT
  279. 531 IFLEFT$(A$,B)="^"THENA$=M$:GOSUB930:PRINT" LAST LINE COPIED USED":FORET=1TOX1:NEXT
  280. 532 IFLEFT$(A$,B)="_"THENA$=H$:GOSUB930:PRINT" LAST LINE DELETED USED.":FORET=BTOX1:NEXT
  281. 533 IFG<LTHENIFA$=""THENA$=CHR$(32)
  282. 534 RETURN
  283. 535 IFA$<>"[146]"THENIFASC(A$+CO$)<142ANDASC(A$+CO$)>138THENIFG+CT<LTHENPOKENC,B:POKEC1,ASC(A$+CO$)
  284. 537 IFG<BTHENG=.
  285. 538 RETURN
  286. 539 X=.:PRINT"[147]LN'S"G"-"G+CT;:GOSUB916:IFG+CT<LTHENFORX=GTOG+CT:GOSUB214:NEXT
  287. 540 POKENC,.:GOSUB184:IFA$=CHR$(141)ANDG+CT<LTHENG=X:GOSUB537:GOTO539
  288. 541 IFA$="[164]"ORA$="[175]"THENGOSUB775:GOTO540
  289. 542 IFA$="F"THENPRINT"[145][145][145][145]";:G=X+B:GOSUB980:G=W:W=.:IFM$<>"[146]"THENG=G-CT-B:GOSUB535:GOTO539
  290. 543 IFA$=" "THENG=X:GOSUB214:A$="":G=G+B:X=G:IFG<LTHEN540
  291. 544 GOSUB535:PRINT"[147]";:GOTO288
  292. 545 GOSUB596:GOSUB127:HE$="":PRINT"  HEADER/30 CHARACTERS - [210][212]=[206][207] [146]":INPUT"";HE$
  293. 546 IFJ1=CTHENA$="":GOSUB927
  294. 547 RETURN
  295. 548 IFJ1=3THENPRINT"DDOUBLE SSPACING":U=1.69:L2=U:RETURN
  296. 549 A$="1":U=1:INPUT"SPACING(1[146]-3)";A$:J=VAL(A$):A$=""
  297. 550 IFJ>BANDJ<CTHENU=J:L2=U:FORJ=F2TOU:A$=A$+R$:NEXT:M$=A$+M$
  298. 551 RETURN
  299. 554 P5$=CHR$(8)+R$+CHR$(16)+"00"+CHR$(15)+"":J3=52:RETURN
  300. 555 GOSUB930:PRINTTAB(6+C)"PRINT MODE":PRINTTAB(6)"1[146]=UPPER LOWER":IFKK<>CTHENPRINTTAB(6)"2=ASCII
  301. 556 [153][163]6)"3=UPPER LOWER W/DESCENDERS":[153][163]6)"4=JOYDRAW GRAPHIC SCREENS":[141]4000:[153]
  302. 557 [153][163]6);:A$[178]"1":[133]"1WAIT - 5 ";A$:J1[178][197](A$):[139]J1[179]B[176]J1[177]5[176]KK[178]C[175]J1[178]F2[167]555
  303. 558 [139]J1[178]C[167]A$[178]"L":[133]"((null))(null)(null)VAL(null) OR (LWAIT)PWER CASE.";A$:[139]A$[179][177]"L"[167]SA[178].
  304. 559 [142]
  305. 560 H[178].:J3[178]53:LF[178]C:DV[178]C:SA[178]7:[141]588:[139]A$[179][177]"$"[167][153]:[141]742:[139]A$[178]"D"[167]166
  306. 561 [139]A$[179][177]"W"[167][142]
  307. 562 [141]555:[139]A$[178]"$"[167][142]
  308. 563 U[178]1:L2[178].:[141]545:[141]548:[153]:J[178].:[151]830,.:[139]J1[178]3[167][141]590:[141]554:[137]194
  309. 564 [139]J1[178]F2[167][151]830,C:[151]829,F2:LF[178]B:[141]590:[137]572
  310. 565 P5$[178]R$:[141]590:[139]J1[178]C[167]J1[178]1:[141]744
  311. 566 [139]KK[178]C[167][142]
  312. 567 [158]CL:[152]LF,M$[170]W$(W%(J))[170]P5$;:J[178]J[170]B:[141]580:[139]KK[178]C[167][142]
  313. 569 [139]J[178][177]L[167]578
  314. 570 [137]567
  315. 571 W$(W%(J))[178]A$:[137]567
  316. 572 M1$[178]M$[170]W$(W%(J))[170]R$:[158]DP:[158]CL:J[178]J[170]B:[141]580:[139]J[177]L[167]578
  317. 573 [137]572
  318. 578 [141]610:[139]A$[178]"CF"[167][142]
  319. 579 [158]CL:[160]LF:[142]
  320. 580 [161]A$:[139]A$[178]"INPUT"[167]A$[178]"(null)UIT":[141]740:[139]A$[178]"Y"[167]J[178]XX:L2[178].:A$[178]"$"
  321. 582 U[178]U[170]L2:[139][181](U)[178][177]J3[167]P[178]P[170]B:[139]H[167]585
  322. 584 [142]
  323. 585 [129]U[178][181](U)[164]66:[152]LF,R$;:[139]U[178]55[167][139]PG[167][152]LF,[199](16)"36["P"]";
  324. 586 [139]U[178]61[167][139]HE$[179][177]""[167][152]LF,[199](16)"50"HE$;
  325. 587 [130]:U[178]B:[142]
  326. 588 [159]C,C:[152]C:[160]C:[139]ST[167][141]930:[153]"(null)LEASE TURN YOUR PRINTER ON!WAIT":[141]914:A$[178]"$"
  327. 589 [142]
  328. 590 [141]4001:[159]LF,DV,SA:T[178]DV:[139]H[178].[167][142]
  329. 591 [129]W[178].[164]Y[171][181](U):[152]LF,R$;:[130]:W[178].:[142]
  330. 592 CF[178].:A$[178]"LENHAIN STR$OWNLOAD ASCILES":[141]740:[139]A$[178]"Y"[167]CF[178]B
  331. 593 [142]
  332. 595 [141]930:[158]CL:[153]:A$[178]"*":[133]"(null)UMBER LAST PAGE";A$:[142]
  333. 596 [141]4010:L2[178].:A$[178]"1":[133]"SKIP SEAM NWAIT";A$:[139]A$[178]"Y"[167]L2[178]U:H[178]B
  334. 597 A$[178]"N":PG[178].:[139]L2[178].[167][142]
  335. 598 [133]"(null)UMBER (null)AGES";A$:[139]A$[178]"Y"[167]PG[178]B:A$[178]"1":[133]"PEEKEGIN @#";A$:P[178][197](A$)[171]B:[139]P[179]0[167]598
  336. 599 [142]
  337. 600 A$[178]"N":[133]"  STR$IRECTORY   NWAITCMDCMDCMD";A$:[139]A$[179][177]"Y"[167]A$[178]"":[142]
  338. 601 [139]T[178].[167][141]912:[158]CL:[141]67:[139]A$[179][177]"$"[167][152]5,"I0":[141]68:[160]5:[139]W[178].[167][158]DIR
  339. 602 [139]T[167][141]912:[153][163]Q)"(null)NE ASCILE (null)PENWAIT":[158]CL:[158]DIR
  340. 603 [158]CL:[153]" (null)RESS A (null)EY (LEN/PWAIT=(null)RINTER  LEN/@WAIT=LENAPTURE)";:[141]184:[141]775:[153]:[142]
  341. 610 CT[178]KK:[139]CF[167]N$[178]O$[170][196](CF):[160]B:[160]5:[141]974:[139]A$[179][177]"$"[167]A$[178]"CF":CF[178]CF[170]B:[142]
  342. 611 KK[178]CT:[139]KK[178]2[175]A$[178]"$"[167][142]:[143] FOR UPLOAD FILE CHAIN 4/86
  343. 612 [139]A$[178]"$"[167][160]LF:[159]LF,C,SA:CF[178].
  344. 613 [139]PG[167][141]595:[139]A$[178]"Y"[167][129]J1[178]U[164]55:[152]LF,R$;:[130]:[152]LF,[199](16)"36["P[170]B"]
  345. 614 RETURN
  346. 619 POKEG1,F2:SYSMG:GOSUB924:GOTO775
  347. 620 G=.:PRINT"[198]IND":GOSUB320:J2=LEN(A$):H$=A$:IFH$=""ORH$=" "THENA$="":RETURN
  348. 621 PRINT:FORJ1=L-BTO.STEP-B:PRINTJ1"[145][157]":IFLEFT$(W$(W%(J1)),J2)<>H$THENNEXT:A$="":GOTO623
  349. 622 A$="":PRINT:PRINT">[146]"W$(W%(J1)):PRINT:INPUT" ^ [212][200][201][211][160][201][212]";A$:IFA$<>"Y"THENNEXT:A$="":RETURN
  350. 623 G=J1:FORJ1=.TOB:NEXT:RETURN
  351. 625 IFA$="[175]"ORN$="[175]"THENA$="[175]":GOSUB778:A$="$":RETURN
  352. 627 IFN$<>"T"THENRETURN
  353. 628 PRINT"[147]"BB$""TAB(Y)"[212][197][210][205][201][206][193][204][160][200][197][204][208] [211][195][210][197][197][206]:[146]":PRINTTAB(6)" :[208][210][197][211][211] (H[146]) [198][207][210] [205][207][210][197] [200][197][204][208]:
  354. 629 [153]" ASCUNCTION (null)EYS ASC1-ASC8 SEND LENONTROL LENODES:
  355. 630 PRINTTAB(9)"F1=^[195]           F2=^[208]":PRINTTAB(9)"F3=^[211] ([216]-[207][198][198])   F4=^[215]
  356. 631 [153][163]9)"F5=^(null) ((null)-(null)(null))    F6=^$ (ESC)":[153][163]9)"F7=^(null)           F8=^(null)
  357. 632 PRINT" [195][207][205][205]-[203][197][217] & [204][197][212][212][197][210][211] A-Z = [195][207][196][197][211] 1-26
  358. 633 [153]" LEN(null)(null)(null)-(null)VAL(null) &/  +=27 -=28 \=29 *=30 ^=31
  359. 634 PRINT" [195][212][210][204]-[203][197][217]/#2  [196][201][211][208][204][193][217][211] [212][197][210][205][201][206][193][204] [205][197][206][213]-":PRINTTAB(18)"[201][196][208][215]'S & [195][194][201][206][208][213][212]
  360. 635 [153]" LEN(null)(null)(null)-(null)VAL(null)/RWAITVS-(null)(null)  (null)(null)VAL(null)(null)  PEEK(null)ASCASCVAL(null)":[153]" LEN(null)(null)(null)-(null)VAL(null)/(null)WAITVS-(null)ASCASC LEN(null)(null)(null)VAL(null) PEEK(null)ASCASCVAL(null)
  361. 637 PRINT" [195][207][205][205]-[203][197][217]/@ = [195][193][208][212][213][210][197] [211][195][210][197][197][206] [212][207] [194][213][198][198][197][210]":PRINT" [195][204][210]-[200][207][205][197] [203][197][217] [195][193][204][204][211] [205][193][201][206] [205][197][206][213]
  362. 639 [153]:[141]603:[139]A$[178]"H"[167]H$[178]"TERMINAL":[151]198,2:[151]631,13:[151]632,13:[141]780
  363. 640 [142]
  364. 641 [139]L[178][177]XX[171]2[167][141]720:A$[178]"$":[142]:[143] FIND/SPLIT
  365. 642 ET[178]W%(L[170]B):[129]J[178]L[170]B[164]G[170]B[169][171]B:W%(J)[178]W%(J[171]B):[130]
  366. 643 W%(G)[178]ET:W$(W%(G))[178]A$:L[178]L[170]B:[142]
  367. 650 [153]:[153]:[139]K[179]B[176]G[178][177]L[167][142]
  368. 651 A$[178]"RIGHT$(null)(null)VAL(null)(null) (STR$LEN(null)) (null)RIGHT$(null)VAL(null) 0-"[170][196](K[171]B)[170]" ATNPEEK(null)(null)VAL (null)RIGHT$(null)VAL"[170][196](G)
  369. 652 [153]:[153]:[153]:[153]""BB$"WAITONON";:[141]740:[139]A$[179][177]"Y"[167][142]
  370. 653 J2[178]G:[129]X[178]K[171]B[164].[169][171]B:A$[178]D$(X):[139]A$[178]""[167]A$[178]" "
  371. 654 [141]930:[153]"    RIGHT$(null)(null)VAL(null)(null)RIGHT$(null)CHR$ (null)RIGHT$(null)VAL(null)":J1[178]W%(L[170]B):[129]J[178]L[170]B[164]G[170]B[169][171]B:W%(J)[178]W%(J[171]B):[130]
  372. 655 W%(G)[178]J1:W$(W%(G))[178]A$:L[178]L[170]B:A$[178]"":[130]:G[178]J2[171]B:[142]
  373. 657 [153]"TOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOANDTOTOTOTOTO";:[142]
  374. 658 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOEDITWAITTOLINEWAITTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"R$BB$;:[137]662
  375. 660 [153]"ONTOTOTOTOTOTOTOTOTOTOTOTOINSERTWAITTOLINEWAITTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"R$BB$;
  376. 662 [153]"TAB(TAB(TAB(TAB(USRTAB(TAB(TAB(TAB(USRTAB(TAB(TAB(TAB(USRTAB(TAB(TAB(TAB(CTAB(TAB(TAB(TAB(USRTAB(TAB(TAB(TAB(USRTAB(TAB(TAB(TAB(USRTAB(TAB(TAB(TAB(_CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  377. 664 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDONON";:[142]
  378. 665 ES[178][165]PO(ES):[151]ES,[194](ES)[175]ET
  379. 666 JO[178][194](G):FR[178]JO[175]J2:JO[178]DV[171](JO[175]DV):SA[178][194](V)
  380. 667 [139]SA[178]U[176]SA[178]PG[167][139]JO[177]L2[167]JO[178]J2:[137]670
  381. 668 [139][194](L1)[177]P[167][139]JO[178]N[176]JO[177]Z[167]JO[178]L2:[137]670
  382. 669 [139]SA[178]B[176]SA[178]U[170]B[167][139]JO[177]N[175]JO[179]L2[167]JO[178]J2:[137]682
  383. 670 [139]SA[178]U[170]B[176]SA[178]U[170]N[167]JO[178]J2:[137]682
  384. 671 [139]SA[178]PG[170]B[176]SA[178]PG[170]N[167]JO[178]J2:[137]682
  385. 672 ES[178][165]PO(ES):[151]ES,[194](ES)[175]ET
  386. 673 [145]JO[137]678,680,670,674,677,676,665,681,679,675:[137]682
  387. 674 [153]"CMD"A$"CMD";:[137]665
  388. 675 [153]""A$"CMD";:[137]665
  389. 676 [153]"CMD"A$"CMD";:[137]665
  390. 677 [153]"ONCMD"A$"CMD";:[137]665
  391. 678 [153]"ON"A$"CMD";:[137]665
  392. 679 [153]"ON"A$"CMD";:[137]665
  393. 680 [153]""A$"CMD";:[137]665
  394. 681 [139][194](L1)[179]O[167][153]""A$"CMD";:[137]665
  395. 682 [151]J3,.:[151]X,.:[151]W,B:[161]H$:[139]H$[178]""[167]665
  396. 683 [139]H$[178]"LOAD"[167][153]H$""A$"CMD";:[137]665
  397. 684 [139]H$[178]" "[167]A$[178]""
  398. 685 [139]H$[177]" "[175]H$[179][177]"SAVE"[175]H$[179][177]M$[175]H$[179][177]"ON"[167]A$[178]H$:[153]A$"CMD";
  399. 688 [139]H$[178]R$[167][146]J3,B,B:[137]1000
  400. 689 [137]665
  401. 690 [144]
  402. 696 [153]:[153]"     "J1:[153]:J[178][195](W$(W%(J1))):[141]995:[139]A$[179][177]"Y"[176]A$[178]"WAIT"[176]A$[178]"$"[167][142]
  403. 697 G[178]G[170]B:W$(W%(J1))[178][200](W$(W%(J1)),J2[171]B)[170]M$[170][201](W$(W%(J1)),(J[171](J2[170]X[171]B))):[142]
  404. 700 [160]1:[160]15:[159]15,8,15:[132]15,W,A$,ET,ES:[153]W;A$,ET,ES:[141]914:[160]15:[137]234
  405. 710 [142]
  406. 720 [153]"SPACE FULL!WAIT":[137]914
  407. 725 A$[178]"$":[139]T[178]3[167][153]"LENLOSE & (null)E(null)PEN "N$;:[133]"Y/NWAIT";A$:[139]A$[178]"Y"[167]460
  408. 726 A$[178]"$":[142]
  409. 740 [153]"("A$")":A$[178]"":[133]"CLOSECLOSECLOSECLOSEARE YOU SURE!WAIT NWAITCMDCMDCMD";A$:[142]
  410. 742 [153]"(WWAIT)/PRO OR (DWAIT)CS":[137]184
  411. 744 P5$[178][199](8)[170]R$[170][199](15):[142]
  412. 750 [153]"STR$ELETING!":[129]G[178].[164]XX:W$(W%(G))[178]"":W%(G)[178]G:[130]:L[178].:VI[178].:G[178].:P[178].:A$[178]"":[142]
  413. 760 [153]"STR$VAL(null)VAL(null)VAL (null)ORD/(null)RO (null)EXT!":[133]"  NCMDCMDCMD";A$:[139]A$[178]"Y"[167][141]740
  414. 762 [139]A$[178]"Y"[167]750
  415. 763 [139]A$[178]"N"[175]K[167]168
  416. 764 [142]
  417. 770 ES[178]80:L1[178].:A$[178]"N":[133]"FORMAT TEXT (NWAIT)";A$:[142]
  418. 775 [139]A$[178]"TO"[167]L2[178]L1:[141]61:[141]149:[141]913:L1[178]L2
  419. 776 [137]778
  420. 777 [159]C,C,7:[141]62:T[178][197](P5$):[141]149:[160]C:[142]
  421. 778 [139]A$[178]"AND"[175]T[179][177]C[167][141]588:[139]A$[179][177]"$"[167]P5$[178][196](T):T[178][171]B:L2[178]L1:[141]777:L1[178]L2
  422. 779 [142]
  423. 780 [141]935:[139]T[167][142]
  424. 781 [141]800:L1[178].:[139]N$[178]""[176]N$[178]"$"[176]T[177].[176]N$[178]"R"[176]N$[178]"T"[176]N$[178]"AND"[167]625
  425. 782 [141]912:[141]974:[141]149:[141]916:[141]790:[141]993:[139]A$[178]"$"[167]787
  426. 783 [141]150:[139]W[167][153]M$;A$:[141]120:[158]CL:[153]"(null)(null)="W:KK[178]2:[141]610:[139]A$[179][177]"CF"[167]787
  427. 784 [139]A$[179][177]""[175]L1[167][153]M$A$:[137]786
  428. 785 [139]A$[179][177]""[167]X[178]XX:W$(W%(X))[178]A$:[141]214
  429. 786 [158]CL:[141]184:[141]121:[141]775:[139]A$[179][177]"INPUT"[167]783
  430. 787 [158]CL:[141]788:[137]940
  431. 788 [160]B:[160]3:[160]C:[160]6:[160]5:[160]15:T[178].:KK[178].:FT[178]B:S[178]X1[171]Y
  432. 789 [153]"  "N$" CLOSED!":T$[178]"":A$[178]"":N[178].:F[178].:L1[178].:[151]NC,.:P5$[178]"":[129]J[178]B[164]X1:[130]:[142]
  433. 790 ES[178]37:[153]"  ASC7 = (null)OGGLE WORDWRAP/FORMAT"R$"  ASC(null)(null)(null)ATN(null)CLOSE(null)(null) @"ES:M$[178]"  ":L1[178]B:[142]
  434. 800 [153]"(RWAIT)=VALXIT (TWAIT)=(null)ODEM LEFT$ELP (DWAIT)=STR$IRECTORY
  435. 802 N$=H$:INPUT" [197]NTER A FILE NAME:";N$:IFN$="D"ANDT<>9THENGOSUB601:N$="":RETURN
  436. 803 IFN$<>"T"THENGOSUB592:IFCFTHENO$=N$
  437. 804 RETURN
  438. 850 Q=12:PRINT:O=646:POKEO,V:POKEG1,B:SYSMG
  439. 854 PRINTTAB(Q)"[195][204][210][160][200][207][205][197] = [205][197][206][213]":PRINTTAB(Q)"   (H) = [200][197][204][208]  ":PRINTTAB(Q)" [211][208][193][195][197][160]= [205][207][196][197][205]!
  440. 855 [141]184
  441. 856 [139]A$[178]"GOTO"[175]T[178].[167][153]"(null)AVE PEEKUFFER":[141]184:[139]A$[178]"Y"[167][141]226:[141]788:[139]A$[178]"$"[167][141]946
  442. 857 [139]A$[178]"LET"[167][141]439:[137]854
  443. 858 [139]A$[178]"DIM"[167]187
  444. 859 [139]A$[178]"INPUT"[175]T[167][153]"LOAD":[137]235
  445. 860 [139]A$[178]"INPUT"[175]T[178].[167]234
  446. 861 [139]A$[178]""[167]344
  447. 862 [139]A$[178]"H"[167]H$[178]"HELP":[141]780:[153]:[137]854
  448. 863 [139]A$[178]"READ"[167][141]935:[139]T[178].[167][141]884:[137]854
  449. 864 [139]A$[178]"IF"[175]T[167]D$(K)[178]M1$[170]"":K[178]K[170]B:[141]229:K[178].:[141]725:[139]A$[178]"$"[167][141]788:[141]440
  450. 865 [139]A$[178]"RESTORE"[167][141]935:[139]T[178].[167][141]930:[141]886:[137]854
  451. 866 [139]A$[178]"D"[167][141]601:[137]854
  452. 867 [139]A$[178]"_"[167]1980
  453. 868 [139]A$[178]"(null)"[175]VI[167]889
  454. 869 [139]A$[178]""[167][151]DL,B:D[178]B:[151]NC,B:[151]631,18:[158]T3:[141]442:[137]854
  455. 870 [139]A$[178]"WAIT"[175]D[178]B[167][151]DL,B:[151]NC,B:[151]631,146:[158]T3:[151]NC,2:[151]632,19:[137]9
  456. 871 [139]A$[178]"B"[167][141]436:[137]854
  457. 872 [139]A$[178]"CLOSE"[175]P[167]889
  458. 873 [139]A$[178]"^"[167][141]935:[139]T[178].[167][141]67:[139]W[178].[167][153]"VAL(null)(null)VAL(null) STR$(null)(null) LEN(null)STR$, (H=HELP)":[141]320:[137]881
  459. 874 [139]A$[178]"RUN"[167][141]168:[137]854
  460. 875 [139]A$[178]"GOTO"[175]L[170]K[178][177]XX[171]F2[167][141]720:[137]854
  461. 878 [139]A$[178]""[167]344
  462. 879 [139]A$[179][177]" "[167]855
  463. 880 [153][163]Q)"ONONONLEN(null)(null)-LEFT$(null)(null)VAL<=>(null)VAL(null)(null)":[141]442:[153][163]Q)"(null)N LINE.....":[141]1000:[137]25
  464. 881 [139]A$[178]"MODEM"[176]A$[178]"H"[176]A$[178]"HELP"[167][160]5:[137]3000
  465. 882 [139][198](A$[170]CO$)[178]78[176][198](A$[170]CO$)[178]86[167][160]5:[153]"!STR$O (null)HAT ASCROM PEEKASIC":[137]850
  466. 883 [152]5,A$:[153]:[141]68:[153]W""A$"WAIT",ET,ES:[153]"":[160]5:[137]854
  467. 884 [141]449:FT[178]B:[139]A$[179][177]"$"[167]D[178]B:[151]DL,B:Z[178].:KK[178].:[141]440:[153]N$" (null)PEN":S[178]12:N$[178]N$[170]"  "
  468. 885 [137]470
  469. 886 LF[178]1:DV[178]4:SA[178]7:[141]588:[139]A$[178]"$"[167][142]
  470. 887 A$[178]"N":[133]"(null)RINTER STR$OWNLOAD";A$:[139]A$[178]"Y"[167][141]590:T[178]C:S[178]Y:D[178]B:[151]DL,C:[141]440:[139]K[167]168
  471. 888 [142]
  472. 889 [141]930:[153]"VALNTER 0-9":[133]"STR$ELAY = 1WAITCMDCMDCMD";A$:J1[178][197](A$):[139]J1[177]255[167]889
  473. 890 J3[178]2:L2[178]673:[151]1012,255:[151]1013,255:J1[178](J1[172]25):[139]J1[179]B[176]J1[177]255[167]J1[178]B
  474. 891 [153]"STR$ELAY ="J1[173]25" (null)ECONDS":[151]1011,J1:[139]VI[175]P[167][153]"LENONTINUE (null)PLOAD.":[137]35
  475. 892 [139]KK[178]2[167][142]
  476. 893 [137]34
  477. 895 EO$[178]"LOAD":[133]"  VALNTER VAL(null)ASC RIGHT$NDICATOR IF USED";EO$:[142]
  478. 900 [153]"LAST NAME USED WAS:WAIT":[153]O$
  479. 903 [133]"NAME=";N$:[139]T[178]3[175][195](N$)[177]12[176][195](N$)[177]16[167][153]"TO LONG":N$[178]"":[137]900
  480. 904 A$[178]N$:[141]740:[139]A$[179][177]"Y"[167]A$[178]"$":N$[178]"":[153]"LOAD":[142]
  481. 905 [139]MO$[178]",S,W"[167][133]"    (null)(null)STR$VAL  WWAITRITE/APPEND ";MO$:[139]MO$[178]"A"[167]MO$[178]",S,A"
  482. 906 [139]MO$[178]",S,A"[167][153]"(null)(null)VAL(null)RIGHT$(null)CHR$CLOSE"[170][199](34)N$[199](34)" (null)(null) ATN(null)(null)VAL(null)STR$:"
  483. 907 [142]
  484. 910 [141]930:[153]" ENTER SPC( COMMODORE KEY/+ TO ESCAPE!WAIT";:[142]
  485. 912 [153]"LOAD  (null)(null)VAL(null)(null)  CLOSE(null)(null)ATNLENVAL PEEKATN(null)WAIT  (null)(null)  (null)LEN(null)(null)(null)(null)  (null)VAL(null)(null)"
  486. 913 [153]"  (null)(null)VAL(null)(null)    F1  (null)VAL(null) WAIT  (null)(null)  VAL(null)RIGHT$(null) /(null)VALATNSTR$ ":[142]
  487. 914 [153][163]C[170]B)"(null)(null)VAL(null)(null) (null)(null)ATNLENVALWAIT PEEKATN(null)WAIT  (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL WAIT":[141]184:[142]
  488. 916 [153]"LEN/PWAIT (null)RINT LEN/@WAIT LENAPTURE":[142]
  489. 920 [153]" (null)PEN DISK DOWNLOAD FILE ? ((null)/(null)WAIT)":[142]
  490. 922 [153]"    (T)WAITEXT OR (P)ROGRAM FILE":[142]
  491. 924 [153]" (null)(null)VAL(null)(null) (H) (null)(null) (null)VALATNSTR$ ASCRIGHT$(null)VAL (null)(null) (null)RIGHT$VAL(null) STR$RIGHT$(null)":[141]184:[142]
  492. 927 A$[178]"":[153]"14=DOUBLE WIDE  18=RVSWAIT CHARACTERS":[133]A$:W[178][197](A$):[153]W
  493. 928 [139]W[178]14[176]W[178]18[167]M$[178]M$[170][199](W):[137]927
  494. 929 [142]
  495. 930 [153]"LOAD  ":[151]NC,.:[142]
  496. 935 [139]T[167][153]" ASCUNCTION BLOCKED; A FILE IS OPEN TO:":[153]" STR$EVICE #"T:[153]:[153]:[141]1000:[142]
  497. 936 [142]
  498. 940 [141]914:[139]A$[179][177]" "[167][141]775:[137]940
  499. 942 [153]:[142]
  500. 946 [141]1000:[141]930:[153]"  *ASCILE (null)OT (null)AVED. (null)VALSTR$(null)CLOSETO SAVE TEXT.WAIT":[137]914
  501. 950 A$[178]W$(W%(G)):J1[178][195](A$):[142]
  502. 974 [141]67:[139]A$[178]"$"[167][153]"(null)NFORMATTED DISK OR NO DISK IN DRIVE!":[153]W:[142]
  503. 975 [151]50960,.:[151]889,.:[151]890,.:[159]B,8,2,"0:"[170]N$[170]",S,R":[141]68:[153]N$,W:[137]6000
  504. 976 G[178].:[153]"ASCIND":[141]320:H$[178]A$:[153]:[153]"(null)EPLACE OR /F"
  505. 977 [141]320:[153]:M$[178]A$:M1$[178]H$:[139]M$[178]" "[175]M1$[178]" "[167]A$[178]"":[142]
  506. 978 [137]177
  507. 980 [139]G[179]XX[167][139]A$[178]"F"[167]L1[178]W:W[178]G:SA[178]G[170]B:[153]:[141]976:SA[178]7:G[178]W[170]B:W[178]G[171]B:A$[178]"DIM"
  508. 984 [139]A$[178]"RIGHT$"[167][141]650:A$[178][199](141):[142]
  509. 986 [142]
  510. 987 J1[178]3:[153]"1=USE LINES 0-3":[153]"2=USE 4-"Y:[153]"3WAIT=ENTER 0-"Y:[141]184:[139]A$[178]"2"[167]J1[178]Y
  511. 988 [139]A$[178]"1"[176]A$[178]"2"[167][129]J[178]0[164]J1:ID$(J)[178]W$(W%(J)):[130]:[137]760
  512. 989 [129]J[178].[164]Y:[141]930:[153]"ID"J:[153]"(null)(null)ATNLENVAL (null)(null)(null)WAIT TO ERASE!WAIT"BB$BB$""ID$(J)NL$;:[141]320
  513. 990 ID$(J)[178]A$:[130]:[142]
  514. 993 [151]840,ES:[129]J[178]841[164]844:[151]J,.:[130]:J[178].:[151]889,.:[151]883,.:[151]BL,.:[151]828,.:[142]
  515. 995 [153]W$(W%(J1)):[153][163]J2[171]B)"^":[153]"($)=(null)VAL(null)+(null)(null)RIGHT$(null) (*)=ATNPEEK(null)(null)(null) (N)=(null)(null) (YWAIT)=(null)VAL(null)
  516. 996 A$="Y":INPUTA$:IFA$="Y"ORA$="$"THENIFM$="/F"THENA$="[146]":M$=A$:L1=J1:W=J1:J1=.
  517. 997 IFA$="$"ORA$="Y"THENIFA$="$"AND161>J+ETTHENGOSUB697:W=J1:L1=J1:J1=.
  518. 998 IFA$="*"THENW=J1:L1=J1:J1=.
  519. 999 RETURN:TERM WORD.COPR.1984-86.8/19/86 TWML.V20 FIND3 PAGEBREAK BUFF/FIX$C6B6
  520. 1000 POKE54296,15:POKE54277,2:POKE54278,251:POKE54276,17:POKE54273,80:POKE54272,10
  521. 1001 FORJ=BTO12:NEXT:FORJ=.TO23:POKE54276,16:NEXT:J=.:RETURN:REM DING
  522. 1980 PRINT"[147]"BB$:PRINTTAB(Q)"[145][145][193]UTODIALER[146]":PRINT"[197]NTER \ TO HANG UP"
  523. 1981 M$="":PRINT"[197]NTER [206]UMBER OR (0) TO [205]ANUAL [196]IAL.":INPUTM$
  524. 1982 IFM$="0"THENPOKEP1,36:PRINT:PRINT"  [205][207][196][197][205] [201][211] [207][198][198][146][160][200][207][207][203]!":GOTO880
  525. 1983 IFM$="\"THENPOKEP1,(PEEK(P1)OR32):PRINT"[205][207][196][197][205][160][201][211][160][207][206][146] [200][207][207][203]!":GOTO850
  526. 1984 INPUT"[200]OW [205]ANY [210]EDIALS";J1:PRINT"[208]RESS [198]1 TO ABORT DIALING!
  527. 1985 [129]J2[178]1[164]J1
  528. 1986 [153]"STR$IALING..":[151]P1,36:[129]J[178]B[164]1000:[130]
  529. 1987 [129]L1[178]1[164][195](M$):N[178][197]([202](M$,L1,B)):[141]1992:[130]
  530. 1988 [129]J[178]B[164]2000:W[178]([194](P1)[175]16):[139]W[178].[167]N[178].:[153]:[153]"LENARRIER STR$ETECTED":[137]880
  531. 1989 [161]A$:[139]A$[178]"INPUT"[167][151]P1,.:J2[178]J1:L1[178].:N[178].:J[178]2000:[153][163]Q)"(null)(null)CLOSELEFT$(null)(null)(null)!"
  532. 1990 [130]:[151]P1,.:[153]:[153]"(null)O LENONNECTION (null)N "M$"":[129]J[178]B[164]1000:[130]:[130]:N[178].:[137]854
  533. 1992 [153]N;:[139]N[178].[167]N[178]10
  534. 1994 [129]X[178]B[164]N:[151]P1,.:[129]J[178]B[164]45:[130]:[151]P1,36:[129]J[178]B[164]24:[130]:[130]:[129]J[178]B[164]200:[130]:[142]
  535. 2000 [153]"LOAD  JOY STICK PORT(2).":[153]"  (null)VAL(null)(null)(null)(null) = (null)VAL(null)(null).":[153]"  STR$ON'T (null)SE (null)OP (null)INE.
  536. 2005 IFK>CTHENP5$="[137]":REM /R ENTRY
  537. 2006 IFP5$="[137]"ANDK>BTHENPRINT"";:INPUT"[196][197][204][197][212][197][160][196][195][211][146]";P5$:IFP5$="Y"THENPRINT"";:GOSUB176:PRINT"";
  538. 2007 J3=207:A$=".":R$=CHR$(13):J2=16:DV=15:G=56320:LF=56322:B=1:C=4:Y=8:V=211:N=2
  539. 2008 L2=7:Z=5:M$=CHR$(20):X=204:W=205:L1=214:P=23:O=24:PG=78:U=38
  540. 2009 DEFFNPO(ES)=PEEK(209)+PEEK(210)*256+PEEK(211):ET=127:PRINT""A$"[157]";:GOSUB670
  541. 2010 PRINT"";:INPUT"  _[197]NTER C[146]APTURE A[146]BORT D[146]ELETE [194]UFFER";A$
  542. 2011 PRINT""MID$(BB$,B,LL-B)"";:IFASC(A$+CO$)=67THENJ3=K:GOSUB61:A$="":RETURN
  543. 2012 IFASC(A$+CO$)=65THENINPUT"[193][194][207][210][212] THIS SCREEN";A$:IFASC(A$+CO$)=89THENRETURN
  544. 2013 IFASC(A$+CO$)=68THENPRINT"";:INPUT"[196][197][204][197][212][197][160][196][195][211][146]";A$:IFASC(A$+CO$)=89THENPRINT"";:GOSUB176
  545. 2014 PRINT"";:A$="":GOTO2005
  546. 2300 PRINT"   * F3/[194]ORDER  F5/[212]EXT [146] F7/[211]CREEN *"
  547. 2301 GETA$:IFA$=""THEN2301
  548. 2330 IFA$="[134]"THENJ=-(J+1)*(J<15):POKE53280,J:GOTO2300:BORDER
  549. 2345 IFA$="[135]"THENJ=-(J+1)*(J<15):POKE646,J:V=J:GOTO2300:CURSOR
  550. 2346 IFA$="[136]"THENJ=-(J+1)*(J<15):POKE53281,J:GOTO2300:SCREEN
  551. 2350 RETURN
  552. 3000 IFA$="H"ORA$="HELP"THENGOSUB3060:GOTO854
  553. 3005 A$="":GOSUB930:PRINTTAB(C)"[195][207][206][214][197][210][211][201][207][206][160][211][197][212] @"PEEK(AS)"[146]":PRINT
  554. 3010 PRINTTAB(C)"0 = [214][201][195] TO [193][211][195][201][201]":PRINTTAB(C)"1 = [214][201][195] TO [214][201][195]
  555. 3011 [153][163]C)"3 = LENLEFT$ATN(null)CHR$VAL PEEKATN(null)STR$":[153][163]C)"B.P.S. IS NOW"BR
  556. 3019 [153][163]C);:[133]"(null)VAL(null)(null)(null)(null) TO (null)(null)RIGHT$(null)";A$
  557. 3020 [139]A$[178]""[167]344
  558. 3029 J[178][197](A$)
  559. 3030 [139]J[178]B[167][151]AS,B:[137]3000
  560. 3040 [139]J[178].[167][151]AS,.:[137]3000
  561. 3042 [139]J[178]3[167][141]930:[137]3048
  562. 3045 [139]J[177]1[167]3000
  563. 3046 [137]344
  564. 3048 A$[178]"":[153][163]C)"1 = 300 BPS":[153][163]C)"2 = 1200 BPS":[153][163]C)"3 = SELECT OTHER
  565. 3049 PRINTTAB(C)"WORD LEN IS"WL:PRINTTAB(C);:INPUT"[210][197][212][213][210][206] TO [209][213][201][212]";A$:J=VAL(A$):IFA$=""THEN3005
  566. 3050 IFNOT(J=1ORJ=2ORJ=3)THEN3005
  567. 3052 WL=PEEK(664):ONJGOTO3054,3056,3057:GOTO3005
  568. 3054 J=300:GOSUB3059:POKE665,J2:POKE666,J1:BR=300:GOTO3005
  569. 3056 J=1200:GOSUB3059:POKE665,J2:POKE666,J1:BR=1200:GOTO3005
  570. 3057 A$="300":INPUT"[197][206][212][197][210] [194][193][213][196]";A$:J=VAL(A$):GOSUB3059:POKE665,J2:POKE666,J1:BR=J:GOTO3005
  571. 3059 X=INT(1.023E6/J+.5):J1=INT(X/256):J2=256*(X/256-J1):RETURN
  572. 3060 PRINT"[147]"BB$"           [196][207][211]  [200][197][204][208]  [211][195][210][197][197][206]
  573. 3062 [153]"  ATNFTER PRESSING THE UP^ ARROW YOU MAY":[153]"ENTER A ONE LINE DISK COMMAND &
  574. 3064 PRINT"PRESS RETURN.  [211]OME EXAMPLES ARE :                                [160]
  575. 3066 [153]"SCRATCH0:FILE NAME  /OR/  S0:FILE NAME":[153]"COPY0:NEW=OLD  /ATNLSO, COPY UP";
  576. 3067 [153]" TO 4 FILES";:[153][166]16)"TO 1 NEW FILE WITH-
  577. 3068 PRINT"COPY0:MASTER=OLD1,OLD2,OLD3,OLD4":PRINT"RENAME0:NEW=OLD    /OR/  R0:NEW=OLD
  578. 3069 [153]"  (null)NE NON-STR$(null)(null) LEN(null)STR$ YOU CAN ENTER IS:":[153]"  MODEMWAIT TO SET TERMINAL ";
  579. 3070 [153]"DEFAULTS.":[153]"  (null)ERM (null)ORD WON'T SEND (null)VAL(null) OR (null)ATN(null)RIGHT$STR$ATN(null)VAL.
  580. 3072 PRINT"  [201]F A FILE IS MARKED IN THE DIRECTORY-":PRINT"  WITH AN ASTERIX* IT MAY BE";
  581. 3074 PRINT" LOADED,":PRINT"  SCRATCHED & RESAVED TO BE SALVAGED.
  582. 3075 [153]"  (null)EAD FILE "[199](34)"^CMD"[199](34)" FOR MORE STR$(null)(null) HELP.":[137]603
  583. 4000 [153][163]6)"5=SCREEN ONLY":[142]
  584. 4001 [139][168]J1[178]5[167][142]
  585. 4002 J1[178]B:LF[178]3:DV[178]3:SA[178].:HE$[178]"(null)AGE PEEKREAKWAIT":[153]"1=(null)ORMAL (null)RINT":[153]"2=STR$ESCENDERS
  586. 4003 INPUT"";A$:IFA$="2"THENU=1.69:L2=U:M$=R$+M$
  587. 4004 RETURN
  588. 4010 PRINT"[208]OSITION [208]RINT [200]EAD [207]N [208]APER [211]EAM, [206][207][215]!":RETURN
  589. 6000 IFW=60THENINPUT"[204]OAD [198]ILE [205]ARKED [215]ITH(*)   Y[157][157][157]";P5$:IFP5$="Y"THEN6010
  590. 6005 RETURN
  591. 6010 OPEN5,8,15,"I0:":OPENB,8,2,"0:"+N$+",S,M":GOSUB68:IFA$="$"THENN$="":RETURN
  592. 6020 T=B:RETURN
  593. 9000 IFXX=.THENXX=1:PRINTCHR$(14)"[147][144]'[204]OADING [205][204]":LOAD"0:TWML.V20",8,1
  594. 9003 PRINTCHR$(14):IFXX=1THENXX=3:PRINT"[147]":LOAD"WELCOME TO",8,1
  595. 9009 OPEN2,2,3,CHR$(6+32)+CHR$(32+128):M1$="*"+"":M1=PEEK(45)+256*PEEK(46)
  596. 9010 M1=M1+2:T3=.:A=781:A$=CHR$(0):R$=CHR$(13):P5$=CHR$(0):H$=CHR$(0):M$=CHR$(0)
  597. 9020 DL=.:B=1:C=4:D=.:F=.:G=.:N=.:K=.:J=.:W=.:X=.:T=.:Y=8:XX=170:X1=100:S=X1-Y
  598. 9040 ML=49152:L=.:Q=.:DP=ML+1074:UL=ML+335:T3=ML+71:E=ML:ML=E+25:LB=.:HB=.
  599. 9042 UB=198:DB=182:FF=DB+256*UB
  600. 9045 PX=53161:FO=53162:SM=53163:REMFIND3@$CF00
  601. 9050 DE=UL+885:BL=1021:CC=828:DL=831:C1=631:NC=198:V=.:P=.:VI=.
  602. 9060 L=.:J1=.:J2=.:J3=.:Z=.:L1=.:LL=22:SS=505:Q=14
  603. 9070 U=.:LF=1:DV=8:SA=7:L2=.:CF=.
  604. 9080 H=.:ET=.:ES=80:LN=.:CL=65484:CP=50480:C2=CP+71:F2=2:F3=212:F4=34
  605. 9085 GH=52624:DI=52477:AS=832:POKEAS,.:RS=52944
  606. 9110 SC=36879:SS=1000:LL=40:CO=646:POKECO,V:SC=53280
  607. 9130 E1=20:FORJ=828TO831:POKEJ,.:NEXT
  608. 9140 BB$=" ":CO$=CHR$(0):O$=CHR$(0):N$=CHR$(0)
  609. 9170 T$="":P1=56577:J2=56579:WL=PEEK(664):BR=300
  610. 9180 POKEJ2,(PEEK(J2)OR36):PRINTCHR$(1)+CHR$(19):J2=.:REM ONHOOK
  611. 9260 NL$=" ----[192]----[192]----BASIC[192]INPUT----[192]----[192]----[146]":HE$="MAX HEADER LEN 20
  612. 9320 [151]53281,241:[151]53280,243:V[178]2:XX[178]300:X1[178]150:S[178]X1[171]Y
  613. 9360 [134]W%(XX),D$(X1),W$(XX),ID$(Y):[129]J[178]0[164]XX:W%(J)[178]J:[130]
  614. 9370 W$(W%(.))[178]" ":D$(.)[178]" "
  615. 9380 J[178]E[170]581:J1[178][181](J[173]256):J2[178]J[171]J1[172]256:[151]251,J2:[151]252,J1
  616. 9390 J[178]E[170]811:J1[178][181](J[173]256):J2[178]J[171]J1[172]256:[151]253,J2:[151]254,J1
  617. 9400 J[178]M1:J1[178][181](J[173]256):J2[178]J[171]J1[172]256:[151]3,J2:[151]4,J1
  618. 9410 [151]5,[194](M1[170]1):[151]6,[194](M1[170]2)
  619. 9425 J[178]50960:J1[178][181](J[173]256):J2[178]J[171]J1[172]256:LB[178]J2:HB[178]J1:LE[178]80:[151]ML[170]34,LE[170]B
  620. 9445 G1[178]838:MG[178]51456:[143] $C900 MSG.OBJ
  621. 9450 [129]J[178]2[164]LE:BB$[178]BB$[170][199](32):[130]:[151]650,128
  622. 9460 MO$[178]",S,W":Z[178].:X[178].:[160]1:[160]15:[129]J[178]1[164]22:[153]:[130]:J[178].:[141]914:[137]344
  623.